home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_chktex.idb / usr / freeware / doc / chktex / chktex.el.z / chktex.el
Lisp/Scheme  |  2001-01-10  |  3KB  |  77 lines
  1. ;;; chktex.el --- quick hack to add ChkTeX capability to AUC-TeX mode
  2. ;;
  3. ;;
  4. ;;  Keywords: LaTeX, AUC-TeX, ChkTeX
  5. ;;
  6. ;;  ChkTeX v1.5, quick hack to add ChkTeX in LaTeX menu.
  7. ;;  Copyright (C) 1995-96 Jens T. Berger Thielemann
  8. ;;
  9. ;;  This program is free software; you can redistribute it and/or modify
  10. ;;  it under the terms of the GNU General Public License as published by
  11. ;;  the Free Software Foundation; either version 2 of the License, or
  12. ;;  (at your option) any later version.
  13. ;;
  14. ;;  This program is distributed in the hope that it will be useful,
  15. ;;  but WITHOUT ANY WARRANTY; without even the implied warranty of
  16. ;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17. ;;  GNU General Public License for more details.
  18. ;;
  19. ;;  You should have received a copy of the GNU General Public License
  20. ;;  along with this program; if not, write to the Free Software
  21. ;;  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  22. ;;
  23. ;;  Contact the author at:
  24. ;;              Jens Berger
  25. ;;              Spektrumvn. 4
  26. ;;              N-0666 Oslo
  27. ;;              Norway
  28. ;;              E-mail: <jensthi@ifi.uio.no>
  29. ;;
  30. ;;
  31. ;;; Commentary:
  32. ;;
  33. ;;  This tiny hack will add a "ChkTeX" item to the command menu of
  34. ;;  AUC-TeX, thus making the use of ChkTeX much more comfortable from
  35. ;;  within AUC-TeX (`LaTeX-mode').
  36. ;;
  37. ;;  INSTALLATION
  38. ;;
  39. ;;  1. Put this file somewhere in your loading path.
  40. ;;  2. Add the line
  41. ;;        (require 'chktex)
  42. ;;     to your .emacs file
  43. ;;
  44. ;;  It is doubtful whether byte-compiling this file gains anything.
  45. ;; 
  46. ;;; Code:
  47. ;; 
  48.  
  49.  
  50.  
  51. (require 'tex-site)
  52. (require 'easymenu)
  53.  
  54. (setq TeX-command-list 
  55.       (nconc TeX-command-list 
  56.              (list (list "ChkTeX" "chktex -v3 %s" 'TeX-run-compile nil t))))
  57.  
  58. (add-hook 'LaTeX-mode-hook
  59.       (function (lambda ()
  60. (easy-menu-define LaTeX-mode-menu
  61.     LaTeX-mode-map
  62.     "Menu used in LaTeX mode."
  63.   (append '("Command")
  64.           '(("Command on"
  65.              [ "Master File" TeX-command-select-master
  66.                :keys "C-c C-c" :style radio
  67.                :selected (eq TeX-command-current 'TeX-command-master) ]
  68.              [ "Buffer" TeX-command-select-buffer
  69.                :keys "C-c C-b" :style radio
  70.                :selected (eq TeX-command-current 'TeX-command-buffer) ]
  71.              [ "Region" TeX-command-select-region
  72.                :keys "C-c C-r" :style radio
  73.                :selected (eq TeX-command-current 'TeX-command-region) ]))
  74.           (let ((file 'TeX-command-on-current))
  75.             (mapcar 'TeX-command-menu-entry TeX-command-list)))))))
  76.  
  77. (provide 'chktex)